﻿Namespace Choreography
    Public MustInherit Class RabbitActivityBase
        Implements IRabbitActivity


#Region "Member Fields"
        Private _actionMoment As UInt32
#End Region

#Region "IRabbitActivity Implementation"
        Public MustOverride Function GetCommandString() As String Implements IRabbitActivity.GetCommandString

        Public Property ActionMoment() As UInt32 Implements IRabbitActivity.ActionMoment
            Get
                Return _actionMoment
            End Get
            Set(ByVal value As UInt32)
                _actionMoment = value
            End Set
        End Property
#End Region

    End Class
End Namespace
